
PROGRAM LIBRARY 


DECUS NO. 


TITLE 


AUTHOR 


COMPANY 


DATE 


SOURCE LANGUAGE 


8-535 


BINARY PUNCH FOR PDP-8/E WITH 2 TTY'S 
(OR WITH HIGH SPEED PUNCH) 


G. Chase 


Portsmouth Abbey School 
Portsmouth, Rhode Island 


May 18, 1972 


PAL III 


Although this program has been tested by the Contributor, no warranty, express or implied, is made by the contributor. 
Digital Equipment Computer Users Society or Digital Equipment Corporation as to the accuracy or functioning of the 
program or related program material, and no responsibility is assumed by these parties in connection therewith. 






DECUS Program Library Write-up 


DECUS NO. 8-535 


BINARY PUNCH FOR PDP-8/E WITH 2 TTY'S 
(or with a high speed punch & a console keybd.) 


Hardware: PDP-8/E with a console keyboard or TTY and a paper tape 

punch not part of the console printer. The routine is 
particularly useful for 8-K (or more) machines, but will 
work perfectly well in a 4-K installation. 

Core: Locations 4000 to 4376 in any core field. 


Function: Punches a binary tape of selected sections of core memory. 

Any number of blocks may be punched (the user need not count 
them in advance); a given block may be taken from any core 
field. Field pseudo-ops. (3n0) may be punched before all, 
some, or none of the blocks. Communication between the user 
and the punch is via the console keyboard and printer. 

Choice of punches: As written, the program will punch its binary output 
on a TTY (low-speed) oaoer tape punch, output device code=41. 
If the user has some other punch (DEC PP8 or PC8, for example) 
he may change locations 4005, 4102 and 4104. The changes 
necessary for the DEC high-speed punch are shown in the pro¬ 
gram listing. The punch can then be used to output a copy 
of its revised self. 


Use: 


Start the program at address *4000. The dialogue proceeds 
as follows: 


FIELD? 

PUNCH FIELD PS.-OP.(Y OR N)? 
STARTING & ENDING ADDRESSES? 
#: 


# : 

(Tape is now punched) 
MORE (Y OR N)? 


User types field of data block: 0,1,etc. 
User types Y or N. 

User types starting (lowest) address 
of his data block, normally a 4-digit 
octal number 

User types ending address. 

"N" causes punching of checksum and 
trailer. The punch halts, but can 
be restarted by "Continue" key on 
processor console. "Y" starts the 
dialogue all over again at FIELD? 


Entering 4-digit addresses: Any code over 267 ASCII is interpreted as 

a rubout and erases the 1 to 3 iigits already typed. The same 
address is asked for once more, on the same line. 


Any code below 260 ASCII is a terminator: thus, 1 + a space 
is the equivalent of 0001. 

Address overflow: If the internal address pointer counts up past 7777 to 
0000, the routine halts. If this is not a mistake, press 
"Continue" to continue. 






/BINARY CORE PUNCH FOR PDP-8/E WTO il TTY * S* 

/(OR WTO A HIGH SPEED PUNCH A A CON .‘OLE KEYBD.) 


/USER COMMUNICATES WTO PROGRAM VIA CONSOLE TTY I 
/OUTPUT IS PUNCHED ON TTYS PUNCH (DEV* CODE 41) 

/ C FOR HIGH SPEED PUNCH> SEE NOTES IN LISTING.] 

♦ 4000 


4000 

6032 


KCC 


4001 

6214 


RDF 


4002 

1364 


TAD KCDF 


4003 

3257 


DCA CURFLD 


4004 

6040 


SPF 


4005 

6410 


SPF2 

/TAPE PUNCH-TTYS 




/CHI 

SPD. PUNCH* CHANGE TO 6026] 

4006 

3362 


DCA CK5UM 

/CLEAR 

4007 

4337 


PUN 200 

/LEADER 

4010 

4761 

WHERE# 

PRINT 


4011 

4171 


TEXTl 

/IN tflAT FIELD? 

4012 

6031 


KSF 


4013 

5212 


JMP .-1 


4014 

6036 


KRB 


4015 

6046 


TLS 

/ECHO 

4016 

0335 


AND K7 


4017 

7106 


CLL RTL 


4020 

7004 


RAL 


4021 

7421 


MOL 


4022 

7501 


MQA 


4023 

1364 


TAD RCDF 


4024 

3255 


DCA DATAF 


4025 

7701 

CT* 

CL A MOA 


4026 

1365 


TAD K300 


4027 

3366 


DCA PSDOP 


4030 

4761 


PRINT 


4031 

4175 


TEXTS 

/IS PS.-OP. TO BE PUNCHED? 

4032 

4347 


YESNO 

/”N” RETURNS AS 0* "Y" AS 

4030 

3367 


DCA PUNOPF 


4034 

4761 


PRINT 


4035 

4350 


TEXT3 

/STARTIN6 6 ENDING ADRS. ? 

4036 

4760 


READ4 


4037 

3370 


DCA STADR 


4040 

4760 


READ4 


4041 

7040 


CM A 


4042 

1370 


TAD STADR 


4043 

3363 


DCA COUNT 


4044 

1367 


TAD PUNOPF 

/PUNCH PS.-OP. IF REQUIRED 

4045 

7650 


SNA CLA 


4046 

5251 


JMP .+ 3 


4047 

1366 


TAD PSDOP 


4050 

4301 


PUNCH 
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4051 

1370 


TAD STADR 

4052 

7120 


CLL CML 

4053 

4317 


PUNCH 2 

4054 

7100 

DATA# 

CLL 

4055 

0000 

DATAF# 

0 

4056 

1770 


TAD I STADR 

4057 

0000 

CURFLD# 

0 

4060 

4317 


PUNCH 2 

4061 

2370 


ISZ STADR 

4062 

7410 


SKP 

4063 

7402 


HLT 

4064 

2363 


ISZ COUNT 

4065 

5254 


JMP DATA 

4066 

4761 


PRINT 

4067 

4367 


TEXT4 

4070 

4347 


YESNO 

4071 

7640 


SZA CLA 

4072 

5210 


JMP WHERE 

4073 

1362 


TAD CKSUM 

4074 

7100 


CLL 

4075 

4317 


PUNCH 2 

4076 

4337 


PUN 200 

4077 

7402 


HLT 

4100 

5206 


JMP WHERE- 2 


/SET link; will BECOME 100 

/CDF BACK TO INSTR. FLD* 

/ADDRS. OVERFLOW; AN ERROR? 

/ (IF MO T# PRESS "CONTINUE") 

/LOOP UNTIL ALL LOCNS. PUNCHED 

/MORE? 

/MORE TO COME) ASK WHERE 

/TRAILER 

/restart; no blank tape 

/ FRAME IS PUNCHED 


/--- 

/SUBROUTINES; 


PUNCH-JMS • 


4101 

0000 


0 

4102 

6411 


6411 

4103 

5302 


JMP .-1 

4104 

6416 


6416 

4105 

7600 

M200# 

7600 

4106 

5701 


JMP I .-5 

4107 

0000 

PUNCHK# 

0 

4110 

3347 


DCA TEMP 

4111 

1347 


TAD TEMP 

4112 

1362 


TAD CKSUM 

4113 

3362 


DCA CKSUM 

4114 

1347 


TAD TEMP 

4115 

4301 


PUNCH 

4116 

5707 


JMP I PUNCHK 



PUNCH 2- 

JMS • 

4117 

0000 


0 

4120 

7421 


MOL 

4121 

7501 


MQA 

4122 

7012 


RTR 

4123 

7012 


RTR 

4124 

7012 


RTR 

4125 

0333 


AND K177 

4126 

4307 


JMS PUNCHK 


/CH. S. P. * 60211 
/CH. S. P. * 60261 


/LINK# IF 1# BECOMES 100 
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4127 

7501 


MQA 

4130 

0334 


AND K77 

4131 

4307 


JMS PUNCHK 

4132 

5717 


JMP I *-13 

4133 

0177 

K177# 

177 

4134 

0077 

K77# 

77 

4135 

0007 

K7# 

7 

4136 

0770 

K770# 

770 



PUN 200* JMS • 

4137 

0000 


0 

4140 

1225 


TAD CT 

4141 

3363 


DCA COUNT 

4142 

1305 


TAD M200 

4143 

4301 


PUNCH 

4144 

2363 


ISZ COUNT 

4145 

5342 


JMP * 3 

4146 

5737 


JMP 1 • m 7 



YESNO-JMS • 

4147 

0000 

TEMP# 

0 

4150 

6031 


KSF 

4151 

5350 


JMP .-1 

4152 

6036 


KRB 

4153 

6046 


TLS 

4154 

7110 


CLL RAR 

4155 

7630 


SZL CL A 

4156 

7001 


I AC 

4157 

5747 


JMP I *-10 



RE AD 4= 

JMS I • 

4160 

4215 


OCRD 



PRINT- 

JMS I • 

4161 

4311 


TEXTYP 

4162 

0000 

CKSUM# 

0 

4163 

0000 

COUNT# 

0 

4164 

6201 

KCDF# 

CDF 

4165 

0300 

K300# 

300 

4166 

0000 

PSDOP# 

0 

4167 

0000 

PUNOPF# 

0 

4170 

0000 

STADR# 

0 



SPF2- 

6410 

4171 

0611 

TEXT1# 

0611 

4172 

0514 

0514 


4173 

0477 

0477 


4174 

0000 

0 


4175 

2025 

TEXT 2* 

2025 

4176 

1603 

1603 


4177 

1040 

1040 


4200 

0611 

0611 


4601 

0514 

0514 


4202 

0440 

0440 



/PUNCH SEES 7600 AS 200 


/(ALSO USED FOR TEMP* STOR*) 


/T ENDS IN 1 
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4203 

2023 

2023 

4204 

0525 

0525 

4205 

0417 

0417 

4206 

5517 

5517 

4207 

2040 

2040 

4210 

5031 

5031 

4211 

4017 

4017 

4212 

2240 

2240 

4213 

1651 

1651 

4214 

7700 

7700 


4215 

0000 

OCRD# 

0 


4216 

4303 


JMS CRLF 


4217 

1263 


TAD NUMSIN 


4220 

4275 


TYPE 


4221 

1264 


TAD COLON 


4222 

4275 


TYPE 


4223 

1265 


TAD MIN4 


4224 

3266 


DCA C0UNT2 


4225 

3267 


DCA ST0RE2 


4226 

6031 

DI61T# 

KSF 


4227 

5226 


JMP 1 


4230 

6034 


KRS 


4231 

4275 

‘ 

TYPE 


4232 

6036 


KRB 

/ECHO# V. TIMING LOOP 

4233 

7421 


MOL 


4234 

7501 


MQA 


4235 

1270 


TAD MIN260 

/LEAVES DIGIT 

4236 

7710 


SPA CLA 


4237 

5256 


JMP EXIT 

/CODE<260 TERMINATES NO. 

4240 

7501 


MQA 


4241 

1332 


TAD MIN270 


4242 

7700 


SMA CL A 

/RUBOUT7 

4243 

5260 


JMP RBT 

/YES (ANY CODE>267> 

4244 

7501 


MQA 

/NO# RETRIEVE NUMBER ' 

4245 

0272 


AND P0S7 

/READ LAST OCTAL DIGIT 

4246 

7421 


MOL 


4247 

1267 


TAD ST0RE2 

/DIGITS PREVIOUSLY READ 

4250 

7104 


CLL RAL 

/ROTATE 3 PLACES LEFT 

4251 

7006 


RTL 


4252 

7501 


MQA 

/NOV ADD NEW DIGIT 

4253 

3267 


DCA ST0RE2 


4254 

2266 


I SZ C0UNT2 

/DONE 4 YET? 

4255 

5226 


JMP DIGIT 

/NO 

42 5 6 

1267 

EXIT# 

TAD STOREE 

/YES 

4257 

5615 


JMP I OCRD 


4260 

1271 

RBT# 

TAD LARROW 

/”- M : NUMBER IS DELETED 

4261 

4275 


TYPE 


4262 

5217 


JMP OCRD+2 

/ASK AGAIN FOR SAME NO. 

4263 

0243 

NUMSIN# 

243 


4264 

0272 

COLON# 

272 


4265 

7774 

MIN4# 

-4 


4266 

0000 

C0UNT2# 

0 


4267 

0000 

ST0RE2# 

0 
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4270 

7520 

MIN260# 

-260 

4271 

0337 

L ARROW# 

337 

4272 

0007 

P0S7# 

7 

4273 

0215 

P0S215# 

215 

4274 

0212 

F0S212# 

212 



TYPE-JMS . 

4275 

0000 


0 

4276 

6041 


TSF 

4277 

5276 


JMP .-1 

4300 

6046 


TLS 

4301 

7200 


CLA 

4302 

5675 


JMP I •-5 

4303 

0000 

CRLF# 

0 

4304 

1273 


TAD P0S215 

4305 

4275 


TYPE 

4306 

1274 


TAD P0S212 

4307 

4275 


TYPE 

4310 

5703 


JMP I CRLF 

4311 

0000 

TEXTYP# 

0 

4312 

4303 


JMS CRLF 

4313 

1711 


TAD I TEXTYP 

4314 

3267 


DCA ADRES 

4315 

2311 


I SZ TEXTYP 

4316 

1667 

GO# 

TAD 1 ADRES 

4317 

7450 


SNA 

4320 

5711 


JMP 1 TEXTYP 

4321 

3266 


DCA WORD 

4322 

7344 


CLL CLA CMA 1 

4323 

3215 


DCA CYCLE 

4324 

1266 


TAD WORD 

4325 

7002 


BSW 

4326 

0344 

LOOP# 

AND POS77 

4327 

7450 


SNA 

4330 

5711 


JMP I TEXTYP 

4331 

1345 


TAD MIN 40 

4332 

7510 

MIN 270# 

SPA 

4333 

1346 


TAD POS100 

4334 

1347 


TAD POS240 

4335 

4275 


TYPE 

4336 

1266 


TAD WORD 

4337 

2215 


1SE CYCLE 

4340 

5326 


JMP LOOP 

4341 

7200 


CLA 

4342 

2267 


I SZ ADRES 

4343 

5316 


JMP GO 



ADRES- 

ST0RE2 



CYCLE- 

OCRD 



WORD- 

COUNTS 

4344 

0077 

P0S77# 

77 

4345 

7740 

MIN40# 

-40 

4346 

0100 

POS100# 

100 


/ADDRESS OF TEXT# IN CALL* 1 
/RETURN TO CALL*2 

/-2 

/EXIT ON 6 OR 12-BIT 0 

) 

/CODES<40* ADD 300 
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4347 0240 


4350 2324 

4351 0122 

4352 2411 

4353 1607 

4354 4046 

4355 4005 

4356 1604 

4357 1116 

4360 0740 

4361 0104 

4362 0422 

4363 0523 

4364 2305 

4365 2377 

4366 0000 


4367 1517 

4370 2205 

4371 4050 

437 2 3140 

4373 1722 

4374 4016 

4375 5177 

4376 0000 


FOS240# 240 


TEXT3> 2324 
0122 
2411 
1607 
4046 
4005 
1604 
1116 
0740 
0104 
0422 
0523 
2305 
2377 
0 


TEXT4* 1517 

2205 

4050 

3140 

1722 

4016 

5177 

0 



ADRES 

4867 

OK SUM 

4168 

CDLOM 

4864 

COUNT 

4163 

COUNTS 

4266 

CRLF 

4303 

CT 

4025 

CURFLD 

4057 

CSfCLE 

4215 

DATA 

4054 

DATAF 

4055 

IX GIT 

4826 

EXIT 

4256 

ffi 

4316 

KCDF 

4164 

K177 

4133 

K300 

4165 

K7 

4135 

K77 

4134 

K770 

4136 

LARROW 

4271 

LOOP 

4326 

MIN 260 

4270 

MIN 270 

4332 

HINA 

4865 

MIN 40 

4345 

M200 

4105 

NUMSIN 

4263 

OCRD 

4215 

FOS100 

4346 

FOSS 12 

4274 

FOSS 15 

4273 

FOS240 

4347 

F0S7 

4272 

F0S77 

4344 

FRINT 

4761 

PSDOP 

4166 

FUNCH 

4301 

FUNCHK 

4107 

PUN CHS 

4317 

FUNOPF 

4167 

FUN 200 

4337 

BBT 

4260 

FEAD4 

4760 

SPF2 

6410 

STADR 

4170 

STORES 

4267 

TEMP 

4147 

TBCTTP 

4311 

TEXT! 

4171 

TEXTS 

4175 

TEXT3 

4350 

TEXT4 

4367 

Tf PE 

4275 

WERE 

4010 

WORD 

4266 

YESNO 

4347 



